Contoh di bawah menunjukkan BASIC generasi terkemudian sudah boleh diaturcara secara berstruktur seperti Pascal, C dan sebagainya.

Private Sub Command1_Click()    Dim a, b As Integer    a = txt1.Text    b = txt2.Text    txt3.Text = a + b    txt4.Text = a / b    txt5.Text = a - b    txt6.Text = a * b    txt7.Text = a ^ bEnd SubPrivate Sub Command2_Click()    txt1.Text = ""    txt2.Text = ""    txt3.Text = ""    txt4.Text = ""    txt5.Text = ""    txt6.Text = ""    txt7.Text = ""End SubPrivate Sub Command3_Click()    EndEnd Sub